parse arg node;Options results;nodeid="DREAMREXX"node;address value nodeid;signal on syntax;signal on ioerr;signal on error;RED='';GRN='';YLW='';BLU='';MAG='';CYN='';RES='';MASTER='';tr=transmit;VER='1.o3';SYSTEMINFO 8;mode=result;if mode=ASCII then vittusaatana='TXT';if mode=ANSI then vittusaatana='GFX';StART:;if mode=ANSI then tr "H ";if mode=ASCII then;do;tr " ";tr " ";end;tr " DD-bBS-liStER "VER" bY /)arkElf of sUPREME";newline;tr " .---.-----------------------------------.";tr " | L | lIST BBS's |";tr " `---^-----------------------------------'";tr " .---.-----------------------------------.";tr " | W | wRITE a bOARD iNTO tHE lIST |";tr " `---^-----------------------------------'";tr " .---.-----------------------------------.";tr " | D | dOWNLOAD bBS-lIST |";tr " `---^-----------------------------------'";tr " .---.-----------------------------------.";tr " | E | eXIT |";tr " `---^-----------------------------------'";newline;send " ½L╗ist, ½W╗rite, ½D╗ownload, ½E╗xit :> ";getchar;alku=result;select;when alku="L"|alku="l" then;do;send "LisT...";call LISTer;end;when alku="W"|alku="w" then;do;send "WritE...";call WRITEr;end;when alku="E"|alku="e" then;do;send "Exit!!";call FuckingEND;end;when alku="D"|alku="d" then;do;send "DownLoad...";call Donaus;end;otherwise call StART;end;LISTer:;if ~exists("DayDream:LogFiles/bbS-List.txt") then;do;newline;tr 'There is no list!!!!';newline;prompt 0 normal '(Pause)...Return to Resume: ';call StART;end;Sendany "DayDream:LogFiles/bbS-List."vittusaatana"";prompt 0 normal '(Pause)...Return to Resume: ';call StART;DONAUS:;if ~exists("DayDream:LogFiles/bbS-List.txt") then;do;newline;tr 'There is no list!!!!';newline;prompt 0 normal '(Pause)...Return to Resume: ';call StART;end;else;do;download "DayDream:LogFiles/bbS-List.txt";call StART;end;WRITEr:;if ~exists("DayDream:LogFiles/bbS-List.txt") then call mAKe;MaMa:;newline;newline;send CYN' Do you want to add your BBS to this list? (y/n):';getchar;fuckoff=result;select;when fuckoff='N'|fuckoff='n' then;do;send "Nope!!";call StART;end;when fuckoff='Y'|fuckoff='y' then;do;send "Yep!!";call WRITEStART;end;otherwise call MaMa;end;WRITEStART:;newline;newline;tr ' ';tr 'Type Q in any time to Quit Questions!!!!!';newline;Pro1:;Prompt 62 normal MAG'BBS NAME 'BLU'>:'GRN;fuck1=result;if fuck1='Q'|fuck1='q' then call StART;if fuck1='RESULT'|fuck1=' ' then;do;tr CYN'You must answer to this question or type Q to quit!!!!';call pro1;end;pro2:;prompt 62 normal MAG'DATA NUMBER(s)'BLU'>:'GRN;fuck2=result;if fuck2='Q'|fuck2='q' then call StART;if fuck2='RESULT '|fuck2=' ' then;do;tr CYN'You must answer to this question or type Q to quit!!!!';call pro2;end;pro3:;prompt 62 normal MAG'OPEN 'BLU'>:'GRN;fuck3=result;if fuck3='Q'|fuck3='q' then call StART;if fuck3='RESULT'|fuck3=' ' then;do;tr CYN'You must answer to this question or type Q to quit!!!!';call pro3;end;pro4:;prompt 62 normal MAG"SYSOP's NAME "BLU'>:'GRN;fuck4=result;if fuck4='Q'|fuck4='q' then call StART;if fuck4='RESULT'|fuck4=' ' then;do;tr CYN'You must answer to this question or type Q to quit!!!!';call pro4;end;pro5:;prompt 62 normal MAG'MAX LINE RATE 'BLU'>:'GRN;fuck5=result;if fuck5='Q'|fuck5='q' then call StART;if fuck5='RESULT'|fuck5=' ' then;do;tr CYN'You must answer to this question or type Q to quit!!!!';call pro5;end;pro6:;prompt 62 normal MAG'SOFTWARE 'BLU'>:'GRN;fuck6=result;if fuck6='Q'|fuck6='q' then call StART;if fuck6='RESULT'|fuck6=' ' then;do;tr CYN'You must answer to this question or type Q to quit!!!!';call pro6;end;pro7:;prompt 62 normal MAG'NET ADDRESS 'BLU'>:'GRN;fuck7=result;if fuck7=' ' then call pro7;if fuck7='RESULT' then call pro8;if fuck7='Q'|fuck7='q' then call StART;pro8:;prompt 62 normal MAG'OTHER 'BLU'>:'GRN;fuck8=result;if fuck8=' ' then call pro8;if fuck8='RESULT' then call DEADLINE;if fuck8='Q'|fuck8='q' then call StART;pro9:;prompt 62 normal ' 'BLU'>:'GRN;fuck9=result;if fuck9=' ' then call pro9;if fuck9='RESULT' then call DEADLINE;if fuck9='Q'|fuck9='q' then call StART;DEADLINE:;newline;Send CYN'Is above correct? (y/n):'MAG;getchar;TURBO=result;select;when TURBO='N'|TURBO='n' then;do;send "Nope!!";call WRITEr;end;when TURBO='Y'|TURBO='y' then;do;send "Yep!!";call CoNtInUe;end;otherwise call DEADLINE;end;CoNtInUe:;newline;send 'Saving Answers .';call open file,"DayDream:LogFiles/bbS-List.TXT",'A';call writeln file,'BBS NAME >:'fuck1'';send ' .';call writeln file,'DATA NUMBER(s)>:'fuck2'';call writeln file,'OPEN >:'fuck3'';call writeln file,"SYSOP's NAME >:"fuck4"";call writeln file,'MAX LINE RATE >:'fuck5'';send ' .';call writeln file,'SOFTWARE >:'fuck6'';if fuck7 ~='RESULT' then;do;call writeln file,'NET ADDRESS >:'fuck7'';end;if fuck8 ~='RESULT' then;do;call writeln file,'OTHER >:'fuck8'';end;send ' .';if fuck9 ~='RESULT' then;do;call writeln file,' >:'fuck9'';end;call writeln file,'';call writeln file,'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-';send ' .';call writeln file,'';call close file;call open file,"DayDream:LogFiles/bbS-List.GFX",'A';call writeln file,'BBS NAME >:'fuck1'';call writeln file,'DATA NUMBER(s)>:'fuck2'';call writeln file,'OPEN >:'fuck3'';send ' .';call writeln file,"SYSOP's NAME >:"fuck4"";call writeln file,'MAX LINE RATE >:'fuck5'';call writeln file,'SOFTWARE >:'fuck6'';if fuck7 ~='RESULT' then;do;call writeln file,'NET ADDRESS >:'fuck7'';end;send ' .';if fuck8 ~='RESULT' then;do;call writeln file,'OTHER >:'fuck8'';end;if fuck9 ~='RESULT' then;do;call writeln file,'>:'fuck9'';end;send ' .';call writeln file,'';call writeln file,'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-';call writeln file,'';call close file;tr ' . done!!';newline;prompt 0 normal '(Pause)...Return to Resume: ';call StART;mAKe:;newline;tr 'Making the log file... , please wait!!!';newline;address command "echo > DayDream:LogFiles/bbS-List.gfx";call open file,"DayDream:LogFiles/bbS-List.gfx",'A';call writeln file,' ';call writeln file,'';call writeln file,'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-';call writeln file,' BBS-LIST';call writeln file,'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-';call writeln file,'';call close file;address command "echo > DayDream:LogFiles/bbS-List.txt";call open file,"DayDream:LogFiles/bbS-List.txt",'A';call writeln file,' ';call writeln file,'';call writeln file,'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-';call writeln file,' BBS-LIST';call writeln file,'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-';call writeln file,'';call close file;tr 'Now you have it!!!';newline;prompt 0 normal '(Pause)...Return to Resume: ';call StART;FuckingEND:;newline;newline;ioerr:;error:;syntax:;SHUTDOWN;exit
